home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / science / sm32a.zip / LIBRARY / NUME.LI < prev    next >
Text File  |  1993-12-25  |  77b  |  4 lines

  1. nume(a_*b_) := nume(a)*nume(b)
  2. nume(x_^n_) := if(n>0, x^n,1)
  3. nume(x_) :=x
  4.